home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / FOOTBALL.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-09-14  |  13.5 KB  |  346 lines
  1. 10  '7/29/82:09:00pm
  2. 20  KEY OFF:SCREEN 0,0,0:DEF SEG:WIDTH 80:ON KEY(10) GOSUB 3040
  3. 30  FOR A=1 TO 9:ON KEY(A) GOSUB 1800:KEY(A) ON:NEXT
  4. 40  COLOR 3,0:CLS:POKE 106,0
  5. 50  LOCATE 1,1:PRINT STRING$(80,219)
  6. 60  FOR A=2 TO 22:LOCATE A,1:PRINT"CSRLIN":LOCATE A,80:PRINT"CSRLIN":NEXT
  7. 70  LOCATE 23,1:PRINT STRING$(80,219);
  8. 80  COLOR 15,0:LOCATE 2,30:PRINT"H E A D   C O A C H
  9. 90  LOCATE 5,22,O:PRINT"Would You Like Instructions ? <Y/N>":COLOR 3,0
  10. 100  RESP$=INKEY$:IF RESP$="" THEN 100
  11. 110  IF RESP$="n" OR RESP$="N" THEN 340
  12. 120  LOCATE 3,26,O:PRINT"Welcome to the FRIENDLY BOWL"
  13. 130  LOCATE 4,26:PRINT"----------------------------"
  14. 140  LOCATE 5,13,O:PRINT"You are about to match wits against the I.B.M. Personnal
  15. 150  LOCATE 6,11:PRINT"Computer in a game of Football. You will be playing  N F L
  16. 160  LOCATE 7,11:PRINT"standard rules for the most part. One of the major changes
  17. 170  LOCATE 8,11:PRINT"in the rules we will play by is that a quarter is composed
  18. 180  LOCATE 9,11:PRINT"of  30  plays as opposed to  15  minutes.   The Two Minute
  19. 190  LOCATE 10,11:PRINT"Warning will be given after  24  plays.
  20. 200  LOCATE 11,13:PRINT"At the beginning of the game,you will have the option of
  21. 210  LOCATE 12,11:PRINT"kicking or receiving.  If you opt to receive,  you will be
  22. 220  LOCATE 13,11:PRINT"given the ball on the 20 yard line. During the 1st and 3rd
  23. 230  LOCATE 14,11:PRINT"quarters, you will be moving form left to right and in the
  24. 240  LOCATE 15,11:PRINT"2nd  and  4th quarters, just the opposite.  You may choose
  25. 250  LOCATE 16,11:PRINT"1  of  7 different offensive plays. You may punt or try to
  26. 260  LOCATE 17,11:PRINT"kick a  field  goal on any down,  but take some advice and
  27. 270  LOCATE 18,11:PRINT"do not try from more than  45  yards  out.  If you fail to
  28. 280  LOCATE 19,11:PRINT"get a first down,  I will take possesion of the ball.  You
  29. 290  LOCATE 20,11:PRINT"may now select any  1  of  5 defensives to try and keep me
  30. 300  LOCATE 21,11:PRINT"from scoring.
  31. 310  COLOR 15,0:LOCATE 25,28,O:PRINT"Strike Any Key To Continue";:COLOR 3,0
  32. 320  IF INKEY$<>"" THEN 320
  33. 330  YES$=INKEY$:IF YES$="" THEN 330
  34. 340  CLS:XX=1:YY=1:GOSUB 3100
  35. 350  C$=CHR$(16)
  36. 360  VSR=0:HSR=0:DN=1:YDS=10:QTR=1:PLS=0:M$=CHR$(17):Y$=CHR$(16)
  37. 370  COLOR 15,0
  38. 380  FOR J=26 TO 55:LOCATE 1,J:PRINT"CSRLIN":NEXT
  39. 390  FOR I=1 TO 8:LOCATE I,54:PRINT"CSRLINCSRLIN":NEXT
  40. 400  FOR J=55 TO 26 STEP-1:LOCATE 8,J:PRINT"CSRLIN":NEXT
  41. 410  FOR I=8 TO 1 STEP-1:LOCATE I,26:PRINT"CSRLINCSRLIN":NEXT
  42. 420  COLOR 3,0
  43. 430  LOCATE 3,30:PRINT"HOME     QTR  VISITORS"
  44. 440  LOCATE 4,30:PRINT HSR;TAB(39);QTR;TAB(46);VSR
  45. 450  LOCATE 6,30:PRINT"DOWN":LOCATE 6,38:PRINT"YARDS TO GO"
  46. 460  LOCATE 6,34:PRINT DN
  47. 470  LOCATE 6,49:PRINT YDS
  48. 480  COLOR 2,0
  49. 490  FOR J=11 TO 69:LOCATE 12,J:PRINT"CSRLIN":NEXT
  50. 500  FOR I=13 TO 22:FOR J=65 TO 69:LOCATE I,J:PRINT"LINE":NEXT J,I
  51. 510  FOR J=69 TO 11 STEP-1:LOCATE 23,J:PRINT"CSRLIN":NEXT
  52. 520  FOR I=22 TO 13 STEP-1:FOR J=11 TO 15:LOCATE I,J:PRINT"LINE":NEXT J,I
  53. 530  COLOR 7,0
  54. 540  GOSUB 3420
  55. 550  FOR I=13 TO 22:FOR J=20 TO 60 STEP 5:LOCATE I,J:PRINT"OFF":NEXT J,I
  56. 560  COLOR 7,0
  57. 570  LOCATE 11,16:PRINT"0   10   20   30   40   50   40   30   20   10  0"
  58. 580  COLOR 7,0
  59. 590  FOR I=1 TO 10:FOR J=1 TO 5:READ YRD(I,J):NEXT J,I
  60. 600  COLOR 15,0:LOCATE 3,1:PRINT"Would You Like To":LOCATE 4,1:PRINT"Kick Or Receive? <K/R>":COLOR 3,0
  61. 610  IF INKEY$<>"" THEN 610
  62. 620  KR$=INKEY$:IF KR$="" THEN 620
  63. 630  IF KR$="R" OR KR$="r" THEN 660
  64. 640  IF KR$="K" OR KR$="k" THEN 660
  65. 650  GOTO 620
  66. 660  HOLD$=KR$
  67. 670  FOR AA=500 TO 150 STEP -5:SOUND AA,1:NEXT:SOUND AA,0
  68. 680  IF KR$="K" OR KR$="k" THEN OPS=55:NPS=55:GOTO 720
  69. 690  IF KR$="R" OR KR$="r" THEN OPS=25:NPS=25:GOTO 1190
  70. 700  GOTO 620
  71. 710  END
  72. 720  LOCATE 3,60:PRINT"    It's My Ball     ":LOCATE 4,60:PRINT"On The"
  73. 730  GOSUB 2780:COLOR 15,0:LOCATE 4,66:PRINT YLN
  74. 740  COLOR 3,0:LOCATE 4,70:PRINT"Yard Line "
  75. 750  COLOR 15,0:LOCATE 6,60:PRINT"Select A Defensive ":LOCATE 7,60:PRINT"Formation By Entering":LOCATE 8,60:PRINT"A Number From 1 To 5":COLOR 3,0
  76. 760  COLOR 15,0:LOCATE 2,31:PRINT"DEFSNGDEFDBL                 "
  77. 770  GOSUB 1810
  78. 780  DN=1:YDS=10
  79. 790  COLOR 14,0:IF QTR=1 OR QTR=3 THEN LOCATE 17,NPS:PRINT M$
  80. 800  IF QTR=2 OR QTR=4 THEN LOCATE 17,NPS:PRINT Y$
  81. 810  COLOR 15,0:LOCATE 6,34:PRINT DN:LOCATE 6,49:PRINT YDS:COLOR 3,0
  82. 820  GOSUB 2780:COLOR 15,0:LOCATE 4,66:PRINT YLN:COLOR 3,0
  83. 830  IF INKEY$<>"" THEN 830
  84. 840  P$=INKEY$:IF P$="" THEN 840
  85. 850  IF P$<"0" OR P$>"5" THEN 840
  86. 860  LOCATE 10,26:PRINT SPC(46)
  87. 870  POSI=VAL(P$)
  88. 880  GOSUB 1750
  89. 890  COLOR 7,0
  90. 900  IF OPS=20 OR OPS=25 OR OPS=30 OR OPS=35 OR OPS=40 OR OPS=45 OR OPS=50 OR OPS=55 OR OPS=60 THEN LOCATE 17,OPS:PRINT"OFF" ELSE LOCATE 17,OPS:PRINT"<UNK! {FF22}>
  91. 910  COLOR 3,0
  92. 920  PLS=PLS+1
  93. 930  IF PLS=25 AND (QTR=2 OR QTR=4) THEN GOSUB 3450
  94. 940  IF PLS>30 AND QTR=4 THEN GOTO 2920
  95. 950  IF PLS>30 AND QTR=2 THEN GOSUB 2870:GOTO 670
  96. 960  IF PLS>30 THEN GOSUB 2900:GOTO 790
  97. 970  IF DN>3 AND NPS<35 AND (QTR=1 OR QTR=3) THEN GOSUB 2620:GOTO 1190
  98. 980  IF DN>3 AND NPS>45 AND (QTR=2 OR QTR=4) THEN GOSUB 2620:GOTO 1190
  99. 990  IF DN>3 THEN GOSUB 2370:GOTO 1190
  100. 1000  IF YRD(RW,POSI)=0 OR YRD(RW,POSI)=98 OR YRD(RW,POSI)<10 THEN DELAY=20:ELSE DELAY=40
  101. 1010  COLOR 15,0:FOR HOLD=1 TO DELAY:SOUND 50,0.5:LOCATE 10,33:PRINT"PLAY IN PROGRESS":LOCATE 10,33:PRINT"                ":SOUND 50,0:NEXT HOLD:COLOR 3,0
  102. 1020  IF YRD(RW,POSI)=99 THEN GOSUB 1970:GOTO 1190
  103. 1030  IF YRD(RW,POSI)=98 THEN GOSUB 2170:GOTO 1190
  104. 1040  IF YRD(RW,POSI)=100 THEN GOSUB 2250:GOTO 1190
  105. 1050  YDS=YDS-YRD(RW,POSI)
  106. 1060  IF YDS=< 0 THEN DN=1:YDS=10 ELSE DN=DN+1
  107. 1070  IF (QTR=1 OR QTR=3) THEN NPS=OPS-(YRD(RW,POSI)/2) ELSE NPS=OPS+(YRD(RW,POSI)/2)
  108. 1080  IF NPS<16 AND (QTR=1 OR QTR=3) THEN GOSUB 2250:GOTO 1190
  109. 1090  IF NPS<16 AND (QTR=2 OR QTR=4) THEN GOSUB 2200:GOTO 1190
  110. 1100  IF NPS>64 AND (QTR=2 OR QTR=4) THEN GOSUB 2250:GOTO 1190
  111. 1110  IF NPS>64 AND (QTR=1 OR QTR=3) THEN GOSUB 2200:GOTO 1190
  112. 1120  OPS=NPS
  113. 1130  IF QTR=1 OR QTR=3 THEN C$=M$
  114. 1140  IF QTR=2 OR QTR=4 THEN C$=Y$
  115. 1150  IF YRD(RW,POSI)=0 THEN GOSUB 2810
  116. 1160  IF YRD(RW,POSI)>0 THEN GOSUB 2830
  117. 1170  IF YRD(RW,POSI)<0 THEN GOSUB 2850
  118. 1180  GOTO 790
  119. 1190  GOSUB 2780: LOCATE 3,60:PRINT"  It's Your Ball":LOCATE 4,60:PRINT"On The"
  120. 1200  COLOR 15,0:LOCATE 4,66:PRINT YLN
  121. 1210  COLOR 3,0:LOCATE 4,70:PRINT"Yard Line "
  122. 1220  COLOR 15,0:LOCATE 6,60:PRINT"Select An Offensive":LOCATE 7,60:PRINT"Play By Entering A   ":LOCATE 8,60:PRINT"Number From 1 To 7  ":COLOR 3,0
  123. 1230  COLOR 15,0:LOCATE 2,31:PRINT"                DEFSNGDEFDBL"
  124. 1240  GOSUB 1660
  125. 1250  DN=1:YDS=10
  126. 1260  COLOR 14,0:IF QTR=1 OR QTR=3 THEN LOCATE 17,NPS:PRINT Y$
  127. 1270  IF QTR=2 OR QTR=4 THEN LOCATE 17,NPS:PRINT M$
  128. 1280  COLOR 15,0:LOCATE 6,34:PRINT DN:LOCATE 6,49:PRINT YDS
  129. 1290  GOSUB 2780:LOCATE 4,66:PRINT YLN:COLOR 3,0
  130. 1300  IF INKEY$<>"" THEN 1300
  131. 1310  P$=INKEY$:IF P$="" THEN 1310
  132. 1320  IF P$<"0" OR P$>"7" THEN 1310
  133. 1330  LOCATE 10,26:PRINT SPC(46)
  134. 1340  POSI=VAL(P$)
  135. 1350  GOSUB 1750
  136. 1360  COLOR 7,0
  137. 1370  IF OPS=20 OR OPS=25 OR OPS=30 OR OPS=35 OR OPS=40 OR OPS=45 OR OPS=50 OR OPS=55 OR OPS=60 THEN LOCATE 17,OPS:PRINT"OFF" ELSE LOCATE 17,OPS:PRINT"<UNK! {FF22}>
  138. 1380  COLOR 3,0
  139. 1390  PLS=PLS+1
  140. 1400  IF PLS=25 AND (QTR=2 OR QTR=4) THEN GOSUB 3450
  141. 1410  IF PLS>30 AND QTR=4 THEN GOTO 2920
  142. 1420  IF PLS>30 AND QTR=2 THEN GOSUB 2870:GOTO 670
  143. 1430  IF PLS>30 THEN GOSUB 2900:GOTO 1260
  144. 1440  IF POSI=7 THEN GOSUB 2300:GOTO 720
  145. 1450  IF POSI=6 THEN GOSUB 2440:GOTO 720
  146. 1460  IF YRD(RW,POSI)=0 OR YRD(RW,POSI)=98 OR YRD(RW,POSI)<10 THEN DELAY=20:ELSE DELAY=40
  147. 1470  COLOR 15,0:FOR HOLD=1 TO DELAY:SOUND 50,0.5:LOCATE 10,33:PRINT"PLAY IN PROGRESS":LOCATE 10,33:PRINT"                 ":SOUND 50,0:NEXT HOLD:COLOR 3,0
  148. 1480  IF YRD(RW,POSI)=99 THEN GOSUB 1900:GOTO 720
  149. 1490  IF YRD(RW,POSI)=98 THEN GOSUB 2040:GOTO 720
  150. 1500  IF YRD(RW,POSI)=100 THEN GOSUB 2120:GOTO 720
  151. 1510  YDS=YDS-YRD(RW,POSI)
  152. 1520  IF YDS=<0 THEN DN=1:YDS=10 ELSE DN=DN+1
  153. 1530  IF QTR=1 OR QTR=3 THEN NPS=OPS+(YRD(RW,POSI)/2) ELSE NPS=OPS-(YRD(RW,POSI)/2)
  154. 1540  IF (QTR=1 OR QTR=3) AND NPS>64 THEN GOSUB 2120:GOTO 720
  155. 1550  IF (QTR=2 OR QTR=4) AND NPS>64 THEN GOSUB 2070:GOTO 720
  156. 1560  IF (QTR=2 OR QTR=4) AND NPS<16 THEN GOSUB 2120:GOTO 720
  157. 1570  IF (QTR=1 OR QTR=3) AND NPS<16 THEN GOSUB 2070:GOTO 720
  158. 1580  IF DN>4 AND (QTR=1 OR QTR=3) THEN LOCATE 10,27:PRINT"Ball Turned Over On 4th Down":BEEP:DN=1:YDS=10:C$=M$:OPS=NPS:GOTO 720
  159. 1590  IF DN>4 AND (QTR=2 OR QTR=4) THEN LOCATE 10,27:PRINT"Ball Turned Over On 4th Down":BEEP:DN=1:YDS=10:C$=Y$:OPS=NPS:GOTO 720
  160. 1600  OPS=NPS
  161. 1610  IF QTR=1 OR QTR=3 THEN C$=Y$ ELSE C$=M$
  162. 1620  IF YRD(RW,POSI)=0 THEN GOSUB 2810
  163. 1630  IF YRD(RW,POSI)>0 THEN GOSUB 2830
  164. 1640  IF YRD(RW,POSI)<0 THEN GOSUB 2850
  165. 1650  GOTO 1260
  166. 1660  LOCATE 1,2:PRINT"    OFFENSIVE PLAY    ":PRINT"     SELECTION(1-7)     ":PRINT"   ------------------"
  167. 1670  PRINT"   1 = Line Plunge    "
  168. 1680  PRINT"   2 = End Run        "
  169. 1690  PRINT"   3 = Screen Pass    "
  170. 1700  PRINT"   4 = Short Pass      "
  171. 1710  PRINT"   5 = Long Bomb       "
  172. 1720  PRINT"   6 = Field Goal      "
  173. 1730  PRINT"   7 = Punt            "
  174. 1740  RETURN
  175. 1750  S$=RIGHT$(TIME$,2)
  176. 1760  N=VAL(S$)
  177. 1770  RANDOMIZE(N)
  178. 1780  R=RND*10
  179. 1790  RW=FIX(R)
  180. 1800  RETURN
  181. 1810  LOCATE 1,2:PRINT"DEFENSIVE FORMATIONS":PRINT"    SELECTION(1-5) ":PRINT" --------------------"
  182. 1820  PRINT"   1 = Goal Line      "
  183. 1830  PRINT"   2 = Short Run      "
  184. 1840  PRINT"   3 = Long Run       "
  185. 1850  PRINT"   4 = Short Pass     "
  186. 1860  PRINT"   5 = Long Pass      "
  187. 1870  PRINT"                        "
  188. 1880  PRINT"                        "
  189. 1890  RETURN
  190. 1900  LOCATE 10,30:PRINT"!!!! I Intercepted !!!!":DN=1:YDS=10
  191. 1910  IF QTR=1 OR QTR=3 THEN NPS=OPS+5:C$=M$
  192. 1920  IF QTR=2 OR QTR=4 THEN NPS=OPS-5:C$=Y$
  193. 1930  IF (QTR=1 OR QTR=3) AND NPS>64 THEN NPS=55
  194. 1940  IF (QTR=2 OR QTR=4) AND NPS<16 THEN NPS=25
  195. 1950  OPS=NPS
  196. 1960  RETURN
  197. 1970  LOCATE 10,30:PRINT"!!! You Intercepted !!!":DN=1:YDS=10
  198. 1980  IF QTR=1 OR QTR=3 THEN NPS=OPS-5:C$=Y$
  199. 1990  IF QTR=2 OR QTR=4 THEN NPS=OPS+5:C$=M$
  200. 2000  IF (QTR=1 OR QTR=3) AND NPS<16 THEN NPS=25
  201. 2010  IF (QTR=2 OR QTR=4) AND NPS>64 THEN NPS=55
  202. 2020  OPS=NPS
  203. 2030  RETURN
  204. 2040  LOCATE 10,27:PRINT"!!!! Sorry, You Fumbled !!!!":BEEP:DN=1:YDS=10
  205. 2050  IF QTR=1 OR QTR=3 THEN C$=M$ ELSE C$=Y$
  206. 2060  RETURN
  207. 2070  LOCATE 10,30:PRINT"!!!!   Safety    !!!!":DN=1:YDS=10
  208. 2080  IF QTR=1 OR QTR=3 THEN NPS=55:OPS=55:C$=M$ ELSE NPS=25:OPS=25:C$=Y$
  209. 2090  HSR=HSR+2
  210. 2100  LOCATE 4,30:PRINT HSR
  211. 2110  RETURN
  212. 2120  LOCATE 10,30:PRINT"!!!!  TOUCHDOWN  !!!!":DN=1:YDS=10:GOSUB 3130
  213. 2130  IF QTR=1 OR QTR=3 THEN NPS=55:OPS=55:C$=M$ ELSE NPS=25:OPS=25:C$=Y$
  214. 2140  VSR=VSR+7
  215. 2150  LOCATE 4,47:PRINT VSR
  216. 2160  RETURN
  217. 2170  LOCATE 10,28:PRINT"!!!! Oops , I Fumbled !!!!":BEEP:DN=1:YDS=10
  218. 2180  IF QTR=1 OR QTR=3 THEN C$=Y$ ELSE C$=M$
  219. 2190  RETURN
  220. 2200  LOCATE 10,30:PRINT"!!!!   Safety    !!!!":DN=1:YDS=10
  221. 2210  IF QTR=1 OR QTR=3 THEN NPS=25:OPS=25:C$=Y$ ELSE NPS=55:OPS=55:C$=M$
  222. 2220  VSR=VSR+2
  223. 2230  LOCATE 4,47:PRINT VSR
  224. 2240  RETURN
  225. 2250  LOCATE 10,30:PRINT"!!!!  TOUCHDOWN  !!!!":DN=1:YDS=10
  226. 2260  IF QTR=1 OR QTR=3 THEN NPS=25:OPS=25:C$=Y$ ELSE NPS=55:OPS=55:C$=M$
  227. 2270  HSR=HSR+7
  228. 2280  LOCATE 4,30:PRINT HSR
  229. 2290  RETURN
  230. 2300  FOR AA=500 TO 150 STEP -5:SOUND AA,1:NEXT:SOUND AA,0
  231. 2310  LOCATE 10,30:PRINT"!!!!  Good Punt  !!!!":DN=1:YDS=10
  232. 2320  IF QTR=1 OR QTR=3 THEN NPS=OPS+20:C$=M$ ELSE NPS=OPS-20:C$=Y$
  233. 2330  IF (QTR=1 OR QTR=3) AND NPS>64 THEN NPS=55
  234. 2340  IF (QTR=2 OR QTR=4) AND NPS<16 THEN NPS=25
  235. 2350  OPS=NPS
  236. 2360  RETURN
  237. 2370  FOR AA=500 TO 150 STEP -5:SOUND AA,1:NEXT:SOUND AA,0
  238. 2380  LOCATE 10,30:PRINT"!!!!  Good Punt  !!!!":DN=1:YDS=10
  239. 2390  IF QTR=1 OR QTR=3 THEN NPS=OPS-20:C$=Y$ ELSE NPS=OPS+20:C$=M$
  240. 2400  IF (QTR=1 OR QTR=3) AND NPS<16 THEN NPS=25
  241. 2410  IF (QTR=2 OR QTR=4) AND NPS>64 THEN NPS=55
  242. 2420  OPS=NPS
  243. 2430  RETURN
  244. 2440  IF QTR=2 OR QTR=4 GOTO 2520
  245. 2450  IF NPS>25 AND RW<9 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=M$:GOTO 2590
  246. 2460  IF NPS>30 AND RW<7 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=M$:GOTO 2590
  247. 2470  IF NPS>35 AND RW<5 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=M$:GOTO 2590
  248. 2480  IF NPS>38 AND RW<4 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=M$:GOTO 2590
  249. 2490  LOCATE 10,26:PRINT"!!!!  Field Goal Try Wide  !!!!"
  250. 2500  IF NPS>55 THEN NPS=55:OPS=55
  251. 2510  GOTO 2610
  252. 2520  IF NPS<25 AND RW<9 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=Y$:GOTO 2590
  253. 2530  IF NPS<30 AND RW<7 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=Y$:GOTO 2590
  254. 2540  IF NPS>35 AND RW<5 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=Y$:GOTO 2590
  255. 2550  IF NPS<38 AND RW<4 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:VSR=VSR+3:C$=Y$:GOTO 2590
  256. 2560  LOCATE 10,26: PRINT"!!!!  Field Goal Try Wide  !!!!"
  257. 2570  IF NPS<25 THEN NPS=25:OPS=25
  258. 2580  GOTO 2610
  259. 2590  GOSUB 3130:LOCATE 4,47:PRINT VSR
  260. 2600  IF QTR=1 OR QTR=3 THEN NPS=55:OPS=55 ELSE NPS=25:OPS=25
  261. 2610  RETURN
  262. 2620  IF QTR=2 OR QTR=4 THEN 2690
  263. 2630  IF NPS<25 AND RW<9 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=Y$:GOTO 2750
  264. 2640  IF NPS<30 AND RW<7 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=Y$:GOTO 2750
  265. 2650  IF NPS<35 AND RW<5 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=Y$:GOTO 2750
  266. 2660  LOCATE 10,26:PRINT"!!!!  Field Goal Try Wide  !!!!"
  267. 2670  IF NPS<25 THEN NPS=25:OPS=25
  268. 2680  GOTO 2770
  269. 2690  IF NPS>55 AND RW<9 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=M$:GOTO 2750
  270. 2700  IF NPS>50 AND RW<7 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=M$:GOTO 2750
  271. 2710  IF NPS<45 AND RW<5 THEN LOCATE 10,26:PRINT"!!!!  Field Goal Was Good  !!!!":DN=1:YDS=10:HSR=HSR+3:C$=M$:GOTO 2750
  272. 2720  LOCATE 10,26:PRINT"!!!!  Field Goal Try Wide  !!!!"
  273. 2730  IF NPS>55 THEN NPS=55:OPS=55
  274. 2740  GOTO 2770
  275. 2750  LOCATE 4,30:PRINT HSR
  276. 2760  IF QTR=1 OR QTR=3 THEN NPS=25:OPS=25 ELSE NPS=55:OPS=55
  277. 2770  RETURN
  278. 2780  YLN=(NPS-15)*2
  279. 2790  IF YLN>50 THEN YLN=100-YLN
  280. 2800  RETURN
  281. 2810  LOCATE 10,32:IF POSI=1 OR POSI=2 THEN PRINT"No Gain On The Play" ELSE PRINT"  Incomplete Pass"
  282. 2820  RETURN
  283. 2830  LOCATE 10,27:IF POSI=1 OR POSI=2 THEN PRINT"   Gain Of" YRD(RW,POSI) "On The Play" ELSE PRINT"Pass Completed For" YRD(RW,POSI) "Yards"
  284. 2840  RETURN
  285. 2850  LOCATE 10,27:IF POSI=1 OR POSI=2 THEN PRINT"   Loss Of" ABS(YRD(RW,POSI)) "On The Play" ELSE PRINT"Quarterback Sacked:Loss Of" ABS(YRD(RW,POSI))
  286. 2860  RETURN
  287. 2870  QTR=QTR+1:PLS=1:LOCATE 9,32:PRINT"                   ":LOCATE 3,60:PRINT"End Of The Half ":LOCATE 4,60:PRINT SPC(19):LOCATE 4,39:PRINT QTR:GOSUB 3190
  288. 2880  IF HOLD$="K" OR HOLD$="k" THEN KR$="R" ELSE KR$="K"
  289. 2890  RETURN
  290. 2900  QTR=QTR+1:PLS=0:LOCATE 3,60:PRINT"End Of The Quarter":LOCATE 4,39:PRINT QTR:GOSUB 3340:NPS=80-OPS:OPS=NPS
  291. 2910  RETURN
  292. 2920  CLS
  293. 2930  LOCATE 4,28:PRINT"Time Is Up; The Game Is Over"
  294. 2940  IF HSR>VSR THEN LOCATE 7,28:PRINT"You Lost By A Score Of" HSR "To" VSR:LOCATE 8,31:PRINT"Better Luck Next Time"
  295. 2950  IF VSR>HSR THEN LOCATE 7,28:PRINT"You Won By A Score Of" VSR "To" HSR:LOCATE 8,31:PRINT"Congratulations  !!!!"
  296. 2960  COLOR 15,0:LOCATE 10,25:PRINT"Would You Like To Play Again? <Y/N>":COLOR 3,0
  297. 2970  IF INKEY$<>"" THEN 2970
  298. 2980  ANS$=INKEY$:IF ANS$="" THEN 2980
  299. 2990  IF ANS$="y" OR ANS$="Y" THEN RESTORE:GOTO 340
  300. 3000  IF ANS$<>"n" AND ANS$<>"N" THEN 2980
  301. 3010  CLS:RUN"MENU
  302. 3020  DATA 0,2,14,10,0,2,98,0,8,40,8,4,8,4,99,-2,-4,0,99,0,6,10,0,6,50,00,6,12,0,0,4,-2,-8,18,0,0,16,-2,0,99,14,30,6,0,0,2,0,4,2,0
  303. 3030  DATA 0,2,14,10,0,2,98,6,8,40,8,4,8,4,99,-2,-4,0,99,0,6,10,0,6,50,00,6,12,0,0,4,-2,-8,18,0,0,16,-2,0,99,14,30,6,0,0,2,0,4,2,0
  304. 3040  KEY(10) OFF:XX=CSRLIN:YY=POS(0):LOCATE 25,1:PRINT SPC(79);:LOCATE 25,20
  305. 3050  COLOR 15,0:PRINT"Do You Wish To Leave This Game? <Y/N>";:COLOR 3,0
  306. 3060  IF INKEY$<>"" THEN 3060
  307. 3070  A$=INKEY$:IF A$="" THEN 3070
  308. 3080  IF A$="Y" OR A$="y" THEN 3010
  309. 3090  IF A$<>"N" AND A$<>"n" THEN 3070
  310. 3100  LOCATE 25,1:PRINT SPC(79);:LOCATE 25,25:COLOR 0,7
  311. 3110  PRINT" Strike <F10> To Leave This Game ";:COLOR 3,0:LOCATE XX,YY
  312. 3120  KEY(10) ON:RETURN
  313. 3130  PLAY"MB MN T220 O3"
  314. 3140  PLAY"O3 E2 D#4 E4 F8 F4 E8 F2"
  315. 3150  PLAY"O3 F8 F4 F8 E4 F4 G8 G4 F#8 G2"
  316. 3160  PLAY"O3 A4 O4 C4 O3 B4 A4 G4 E4 C4 D4"
  317. 3170  PLAY"O3 E8 G4 F8 E4 D4 C2. MF"
  318. 3180  RETURN
  319. 3190  PLAY"MN T240"
  320. 3200  PLAY"O1 C2 O0 B4. O1 C8 O0 A4 O1 C2 D4 E-4 E4 F4 F#4 G4 P4 O0G2"
  321. 3210  PLAY"O3 E4 P8 E8 E4 E4 E4 P8 E8 F4 F4 D8 C#8 MS D8 E8 D4 C4"
  322. 3220  PLAY"O3 ML C32 O2 B16. MS B8 A4 B4 G4 MNO3G4 P8 G8 G4 G4"
  323. 3230  PLAY"O3 G4 P8 G8 G#4 G#4 ML A8 MN G#8 MS A8 O4C8O3 MNB4 A4 G#2."
  324. 3240  PLAY"O3 G#4 G4 P8 G8 MS O4 C4 P8 O3 A8 G4 F#4 G4 E4 MN D4"
  325. 3250  PLAY"O2 G8 F#8 G8 F#8 G4 O3 D4 O2 G8 F#8 G8 F#8 G4 O3"
  326. 3260  PLAY"O3 G4 P8 G8 MS O4 C4 P8 O3 A8 G4 F#4 G4 E-4 MN D4"
  327. 3270  PLAY"O2 F#8 E8 F#8 E8 F#4 G4 P4 G4.F8 E2 A4.G8 O1 B2 A2"
  328. 3280  PLAY"O1 G2 O2 F2 E2 D4.E8 F4 A2 O3 C4 D2 C2 O2 E1 D2"
  329. 3290  PLAY"O3 G4.F8 E2 A4. G8 O2 B2 A2 G2 O3F2 E2 D4.E8 F4 A4 O4D4.C8"
  330. 3300  PLAY"O3 E4 G4 C4.E8 D1 C1"
  331. 3310  RETURN
  332. 3320  RETURN
  333. 3330  RETURN
  334. 3340  PLAY "MN T200"
  335. 3350  PLAY "O2 C8 F8 A8 O3 C4 O2A8 O3C4."
  336. 3360  FOR I=450  TO 300  STEP -10:SOUND I,0.3:NEXT I :SOUND 32600,5
  337. 3370  PLAY "O2 C#8 F#8 A#8 O3 C#4 O2A#8 O3C#4."
  338. 3380  FOR I=475  TO 325  STEP -10:SOUND I,0.3:NEXT I :SOUND 32600,5
  339. 3390  PLAY "O2 D8 G8 B8 O3 D4 O2B8 O3D4."
  340. 3400  FOR I=500  TO 350  STEP -10:SOUND I,0.3:NEXT I :SOUND 32600,5
  341. 3410  RETURN
  342. 3420  PLAY "MB MN T180"
  343. 3430  PLAY "O2 C8.C16 F8 C8 F8 A8 F4 F8.F16 A8 F8 A8 O3C8 O2 A4 F8.A16 O3 C4  O2 A8.F16 C4 C8.C16 F4 F8.F16 F4 MF"
  344. 3440  RETURN
  345. 3450  LOCATE 9,32:COLOR 31,0:PRINT"Two Minute Warning";:BEEP:RETURN
  346.